home *** CD-ROM | disk | FTP | other *** search
- #include <gsl/gsl_math.h>
- #include <gsl/gsl_cblas.h>
- #include "cblas.h"
-
- double
- cblas_dsdot (const int N, const float *X, const int incX, const float *Y,
- const int incY)
- {
- #define INIT_VAL 0.0
- #define ACC_TYPE double
- #define BASE float
- #include "source_dot_r.h"
- #undef ACC_TYPE
- #undef BASE
- #undef INIT_VAL
- }
-